Namespace OpenArchive
    Namespace Document
        Namespace Components.Data
            Public Class InfoComponentData
                Inherits ComponentData
                Private m_Guid As Guid
                Private m_Name As String
                Private m_Created As DateTime
                Private m_Retention As DateTime
                Private m_DocType As String ' As example: image, file, cold, note(txt),...
                Private m_ExternalID As String ' Used in Frontendsystems (SAP,...) , that sets own IDs in diffrent formats
                Private m_OtherProperties As Xml.XmlDocument ' Used in Frontendsystems or for future use
                Friend Sub New()
                    MyBase.Version = New Version(1, 0, 0, 0)
                End Sub
                Friend Property DocType() As String
                    Get
                        Return m_DocType
                    End Get
                    Set(ByVal value As String)
                        m_DocType = value
                    End Set
                End Property
                Friend Property Guid() As Guid
                    Get
                        Return m_Guid
                    End Get
                    Set(ByVal value As Guid)
                        m_Guid = value
                    End Set
                End Property
                Friend Property Name() As String
                    Get
                        Return m_Name
                    End Get
                    Set(ByVal value As String)
                        m_Name = value
                    End Set
                End Property
                Friend Property Created() As DateTime
                    Get
                        Return m_Created
                    End Get
                    Set(ByVal value As DateTime)
                        m_Created = value
                    End Set
                End Property
                Friend Property ExternalID() As String
                    Get
                        Return m_ExternalID
                    End Get
                    Set(ByVal value As String)
                        m_ExternalID = value
                    End Set
                End Property
                Friend Property Retention() As DateTime
                    Get
                        Return m_Retention
                    End Get
                    Set(ByVal value As DateTime)
                        m_Retention = value
                    End Set
                End Property
                Friend Property OtherProperties() As Xml.XmlDocument
                    Get
                        Return m_OtherProperties
                    End Get
                    Set(ByVal value As Xml.XmlDocument)
                        m_OtherProperties = value
                    End Set
                End Property
            End Class
        End Namespace
    End Namespace
End Namespace
